MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00986_Gestion des QuickTime.ls

Text File | 1995-08-06 | 7.0 KB | 258 lines

on CoupeSonQ
  global glQTmemo
  if soundBusy(1) = 0 then
    exit
  end if
  if getAt(glQTmemo, 2) = 0 then
    exit
  end if
  if the movieRate of sprite getAt(glQTmemo, 1) <> 0 then
    Cson(1)
  end if
end

on QuickPlayStartEnd Piste, NumCast, StartMovieTime, EndMovieTime
  global glQTmemo
  if Piste = #auto then
    set Piste to getAt(glQTmemo, 1)
  end if
  if NumCast = #auto then
    set NumCast to the castNum of sprite Piste
  end if
  if StartMovieTime = "Debut" then
    set StartMovieTime to the movieTime of sprite Piste
  end if
  if EndMovieTime = "Fin" then
    set EndMovieTime to the duration of cast NumCast
  end if
  QTspriteStartEndTime([Piste, StartMovieTime, EndMovieTime])
  QTspriteStart([Piste, NumCast, 0, StartMovieTime])
  QTspriteStartEndTime([Piste, StartMovieTime, EndMovieTime])
  QTspriteStart([Piste, #auto, 1, #auto])
end

on QTScanAnnule
  global glQTmemo
  set glQTmemo to list(0, 0)
end

on QTspriteAuto Piste
  global glQTmemo
  set glQTmemo to list(Piste, 0)
end

on RecupQTauto rien
  global glQTmemo
  return getAt(glQTmemo, 1)
end

on TestPresenceQT
  global glQTmemo
  if glQTmemo = list(0, 0) then
    return 0
  end if
  set NumCast to the castNum of sprite getAt(glQTmemo, 1)
  if NumCast < 1 then
    QTScanAnnule()
    return 1
  end if
  if the castType of cast NumCast = #digitalVideo then
    return 0
  end if
  QTScanAnnule()
  return 1
end

on QTspriteStartTime ParaListe
  global glQTmemo
  if getAt(ParaListe, 1) <> #auto then
    set Piste to getAt(ParaListe, 1)
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  set AccuDeb to getAt(ParaListe, 2)
  if AccuDeb = "Debut" then
    set AccuDeb to the movieTime of sprite Piste
  end if
  set the startTime of sprite Piste to AccuDeb
  set the movieTime of sprite Piste to AccuDeb
  updateStage()
end

on QTspriteEndTime ParaListe
  global glQTmemo
  if getAt(ParaListe, 1) <> #auto then
    set Piste to getAt(ParaListe, 1)
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  set NumDuCast to the castNum of sprite Piste
  set AccuFin to getAt(ParaListe, 2)
  if AccuFin = "Fin" then
    set AccuFin to the duration of cast NumDuCast
  end if
  set the stopTime of sprite Piste to AccuFin
  updateStage()
end

on QTspriteStartEndTime ParaListe
  global glQTmemo
  if getAt(ParaListe, 1) <> #auto then
    set Piste to getAt(ParaListe, 1)
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  set NumDuCast to the castNum of sprite Piste
  set AccuDeb to getAt(ParaListe, 2)
  if AccuDeb = "Debut" then
    set AccuDeb to the movieTime of sprite Piste
  end if
  set AccuFin to getAt(ParaListe, 3)
  if AccuFin = "Fin" then
    set AccuFin to the duration of cast NumDuCast
  end if
  set the startTime of sprite Piste to AccuDeb
  set the stopTime of sprite Piste to AccuFin
  updateStage()
  set the movieTime of sprite Piste to AccuDeb
  updateStage()
end

on QTspriteStart ParaListe
  global glQTmemo
  if getAt(ParaListe, 1) <> #auto then
    set Piste to getAt(ParaListe, 1)
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  if getAt(ParaListe, 2) <> #auto then
    set NumDuCast to the number of cast getAt(ParaListe, 2)
  else
    set NumDuCast to the castNum of sprite Piste
  end if
  if the sound of cast NumDuCast <> 0 then
    if getAt(ParaListe, 3) <> 0 then
      Cson(1)
    end if
    setAt(glQTmemo, 2, 1)
  end if
  set VolumeSprite to 255
  if count(ParaListe) > 4 then
    if getAt(ParaListe, 5) <> #auto then
      set VolumeSprite to getAt(ParaListe, 5)
    end if
    set the video of cast NumDuCast to getAt(ParaListe, 6)
    set the sound of cast NumDuCast to getAt(ParaListe, 7)
    set the controller of cast NumDuCast to getAt(ParaListe, 8)
    set the pausedAtStart of cast NumDuCast to getAt(ParaListe, 9)
    set the loop of cast NumDuCast to getAt(ParaListe, 10)
    set the preLoad of cast NumDuCast to getAt(ParaListe, 11)
    set the crop of cast NumDuCast to getAt(ParaListe, 12)
    set the center of cast NumDuCast to getAt(ParaListe, 13)
    set the frameRate of cast NumDuCast to getAt(ParaListe, 14)
  end if
  set the directToStage of cast NumDuCast to 1
  set the visible of sprite Piste to 1
  set the castNum of sprite Piste to NumDuCast
  updateStage()
  set the volume of sprite Piste to VolumeSprite
  set the movieRate of sprite Piste to getAt(ParaListe, 3)
  if getAt(ParaListe, 4) <> #auto then
    set the movieTime of sprite Piste to getAt(ParaListe, 4)
  end if
  RestoreVolume()
end

on QTspriteStop ParaListe
  global glQTmemo
  if listp(Parametre) then
    set Parametre to getAt(Parametre, 1)
  end if
  if Parametre <> #auto then
    set Piste to Parametre
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  set NumDuCast to the castNum of sprite Piste
  set AccuS to the sound of cast NumDuCast
  set the sound of cast NumDuCast to 0
  set the movieRate of sprite Piste to 0
  updateStage()
  set the sound of cast NumDuCast to AccuS
  RestoreVolume()
end

on QTspriteEfface Parametre
  global glQTmemo
  if listp(Parametre) then
    set Parametre to getAt(Parametre, 1)
  end if
  if Parametre <> #auto then
    set Piste to Parametre
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set NumDuCast to the castNum of sprite Piste
  if NumDuCast > 0 then
    if the castType of cast NumDuCast = #digitalVideo then
      puppetSprite(Piste, 1)
      updateStage()
      set AccuS to the sound of cast NumDuCast
      set AccuV to the video of cast NumDuCast
      set the volume of sprite Piste to 0
      set the movieRate of sprite Piste to 0
      set the sound of cast NumDuCast to 0
      set the video of cast NumDuCast to 0
      set the visible of sprite Piste to 0
      updateStage()
      set the sound of cast NumDuCast to AccuS
      set the video of cast NumDuCast to AccuV
      puppetSprite(Piste, 0)
    end if
  end if
  QTScanAnnule()
  RestoreVolume()
end

on QTspriteVolume ParaListe
  global glQTmemo
  if getAt(ParaListe, 1) <> #auto then
    set Piste to getAt(ParaListe, 1)
  else
    set Piste to getAt(glQTmemo, 1)
  end if
  set glQTmemo to list(Piste, 0)
  puppetSprite(Piste, 1)
  updateStage()
  set the volume of sprite Piste to getAt(ParaListe, 2)
  RestoreVolume()
end

on QTCastDef ParaListe
  set NumDuCast to the number of cast getAt(ParaListe, 1)
  set the video of cast NumDuCast to getAt(ParaListe, 2)
  set the sound of cast NumDuCast to getAt(ParaListe, 3)
  set the controller of cast NumDuCast to getAt(ParaListe, 4)
  set the pausedAtStart of cast NumDuCast to getAt(ParaListe, 5)
  set the loop of cast NumDuCast to getAt(ParaListe, 6)
  set the preLoad of cast NumDuCast to getAt(ParaListe, 7)
  set the crop of cast NumDuCast to getAt(ParaListe, 8)
  set the center of cast NumDuCast to getAt(ParaListe, 9)
  set the frameRate of cast NumDuCast to getAt(ParaListe, 10)
end